home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
SPACE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-13
|
570b
|
22 lines
{ -------------------------
SPACE normalizes a string
------------------------- }
Function Space ( S : AnyString ) : AnyString;
var
Ts : AnyString;
CurrentWord, NumberOfWords : integer;
begin
Ts := '';
NumberOfWords := words(S);
if NumberOfWords > 0 then
begin
for CurrentWord := 1 to NumberOfWords do
begin
if CurrentWord <> NumberOfWords then
Ts := Ts + word ( S, CurrentWord ) + ' '
else
Ts := Ts + word ( S,CurrentWord);
end;
end;
Space := Ts;
end {Space} ;